if whichItem is in "First,Prev,Next,Last,New Card,Delete Card," &"Cut Card,Paste Card,New Field,New Background,Find..." then
beep
exit to hyperCard
end if
if whichItem is "New Button" then
if StackName is empty then
beep
exit to hyperCard
else
pass doMenu
end if
end if
if WhichItem is "Quit HyperCard" then
if the freesize of this stack > 2000 and the diskspace > the size of this stack then
Answer "Reshelve books and alphabetize card catalog?" with "Compact" or "Next time" or "Cancel"
If it is "Compact" then
if cantmodify of this stack is false then
lock screen
show cd fld "GoodbyeNote"
unlock screen with dissolve
doMenu "Compact Stack"
lock screen
hide cd fld "GoodbyeNote"
unlock screen with dissolve
else
show menuBar
answer "The Cantmodify of this stack is set to true," &" so compacting is impossible at this time. Next session?" with "OK"
end if
end if
if it is "Cancel" then
exit doMenu
end if
end if
end if
pass doMenu
end doMenu
on openStack
global Stacks
cleanScreen
if the version < 1.2 then
Answer "Hypercard version 1.2, or later, is available at your " &"Apple dealer. Many functions of this stack require the new " &"features. Continue?" with "Risk It" or "Go Home"
if it is "Go Home" then
GoHome
exit openStack
end if
end if
go cd 1
if stacks is empty then
CheckGlobals
end if
About " ","If Monks Had Macs..."
set userLevel to 5
choose browse tool
end openStack
on CheckGlobals
global GULevel,GPKeys,GTArrows
global GVPatn,GBTyping,GVMsg,GVTool
getHomeInfo
put the userLevel into GULevel
put the powerKeys Into GPKeys
put the textArrows into GTArrows
put the blindTyping into GBTyping
put the visible of the msg into GVMsg
put the visible of tool window into GVTool
put the visible of pattern window into GVPatn
end CheckGlobals
on closeStack
global GULevel,GPKeys,GTArrows
Global GVPatn,GBTyping,GVMsg,GVTool
cleanScreen
if GULevel is empty then
CheckGlobals
end if
set the userLevel to GULevel
set the powerKeys to GPKeys
set the textArrows to GTArrows
set the blindTyping to GBTyping
set the visible of the msg to GVMsg
set the visible of tool window to GVTool
set the visible of pattern window to GVPatn
about
end closeStack
on deleteButton
-- neutralizes any "anti-goof-up" handlers in user's stack
end deleteButton
-- Library created by and copyrighted 1988-1989, by Philip A. Mohr, Jr.
-- If this stack is used as the basis for an expanded version, all
-- I expect as recompense is a that a copy of your completed stack
-- be posted on one or more of the major PD distribution services
-- (CompuServe, Genie, etc.).
-- ChooseIcon is from Oscar Hills, who also wrote the XFCN
-- "SearchAutoCat" used in the search routine of "Imitatio Chisti" and
